home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 188 / 01-04 PC Format 188 [2006-06] DVD side 1_.iso / Menus / Scenes / HOME.dir / 00029_Script_thumbnail_handler < prev    next >
Text File  |  2006-04-20  |  651b  |  48 lines
  1. property Sp
  2. property sRect
  3. property fRect
  4. property rDiff
  5. global Gallery_FullSize_Sprite
  6.  
  7.  
  8. on init me
  9.   Sp = sprite(me.spritenum)
  10.   sRect = Sp.rect
  11.   fRect = rect(sRect.left - 10, sRect.top - 10, sRect.right + 10, sRect.bottom + 10)
  12.   rDiff = fRect - sRect
  13.   Sp.blend = 80
  14. end
  15.  
  16. on mouseEnter me
  17.   Sp.blend = 100
  18.   cursor 280
  19. end
  20.  
  21. on mouseLeave me
  22.   Sp.blend = 80
  23.   cursor -1
  24. end
  25.  
  26. on HideThumb me
  27.   Sp.visible = false
  28. end
  29.  
  30. on ShowThumb me
  31.   Sp.visible = true
  32. end
  33.  
  34.  
  35.  
  36. on mouseUp me
  37.   Gallery_FullSize_Sprite.member = Sp.member
  38.   Gallery_FullSize_Sprite.visible = true
  39.   sendAllSprites(#HideThumb)
  40. end
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.